home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / MAX.LI < prev    next >
Text File  |  1993-12-23  |  187b  |  9 lines

  1. # max
  2. # e.g. max([1,2,3]) gives 3
  3.  
  4. max(x_) := if(islist(x),
  5.     block(max:=member(x,1), len:=length(x),
  6.     do( if(member(x,j)>max, max:=member(x,j)), j,2,len,1),
  7.     max,
  8.     local(len) ))
  9.